home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / quickg_1 / form1.frm next >
Text File  |  1999-02-18  |  2KB  |  87 lines
  1. VERSION 5.00
  2. Begin VB.Form Form1 
  3.    Caption         =   "User - ScaleMode example"
  4.    ClientHeight    =   3660
  5.    ClientLeft      =   4155
  6.    ClientTop       =   2265
  7.    ClientWidth     =   3960
  8.    LinkTopic       =   "Form1"
  9.    ScaleHeight     =   3660
  10.    ScaleWidth      =   3960
  11.    Begin VB.PictureBox Picture1 
  12.       AutoSize        =   -1  'True
  13.       Height          =   1410
  14.       Left            =   120
  15.       Picture         =   "Form1.frx":0000
  16.       ScaleHeight     =   3
  17.       ScaleLeft       =   1
  18.       ScaleMode       =   0  'User
  19.       ScaleTop        =   1
  20.       ScaleWidth      =   3
  21.       TabIndex        =   0
  22.       Top             =   120
  23.       Width           =   1410
  24.       Begin VB.Shape Shape1 
  25.          FillColor       =   &H000000FF&
  26.          FillStyle       =   0  'Solid
  27.          Height          =   135
  28.          Left            =   0
  29.          Shape           =   1  'Square
  30.          Top             =   -15
  31.          Width           =   135
  32.       End
  33.    End
  34.    Begin VB.Label Label1 
  35.       Caption         =   $"Form1.frx":1162
  36.       Height          =   1380
  37.       Left            =   135
  38.       TabIndex        =   1
  39.       Top             =   2100
  40.       Width           =   3705
  41.    End
  42. End
  43. Attribute VB_Name = "Form1"
  44. Attribute VB_GlobalNameSpace = False
  45. Attribute VB_Creatable = False
  46. Attribute VB_PredeclaredId = True
  47. Attribute VB_Exposed = False
  48. Option Explicit
  49. 'This small sample is a simple but useful example
  50. 'With a little imagination, a VB hacker
  51. 'could build a variety of useful routines
  52. 'to exploit the principal.
  53.  
  54. 'Nigel Taylor
  55. 'taypre@sympatico.ca
  56.  
  57. Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  58. Dim msg
  59. X = Int(X)
  60. Y = Int(Y)
  61. X = X & Y
  62.  
  63. msg = " - " & X
  64. Shape1.Move Left(X, 1), Right(X, 1)
  65.  
  66. Select Case X
  67. Case 11
  68. MsgBox "X" & msg
  69. Case 12
  70. MsgBox "O" & msg
  71. Case 13
  72. MsgBox "O" & msg
  73. Case 21
  74. MsgBox "O" & msg
  75. Case 22
  76. MsgBox "X" & msg
  77. Case 23
  78. MsgBox "O" & msg
  79. Case 31
  80. MsgBox "O" & msg
  81. Case 32
  82. MsgBox "O" & msg
  83. Case 33
  84. MsgBox "X" & msg
  85. End Select
  86. End Sub
  87.